home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / Disk-Archive / multitasking-demo.dms / multitasking-demo.adf / demo.script1 < prev    next >
Encoding:
Text File  |  1985-11-26  |  8.9 KB  |  247 lines

  1. topaz.font
  2. Rev 18-Sept-85
  3. 32 $000 $fff $000 $d00 $f00 $f80 $f90 $fb0
  4. $fd0 $ff0 $bf0 $8e0 $0f0 $2c0 $0b1 $0bb
  5. $0db $1fb $6fe $6ce $00f $61f $06d $91f
  6. $c1f $f1f $666 $db9 $c80 $336 $d00 $CC6
  7. %window 0 0 0 320 200 "Demo.Window" $1800 $0648
  8. %clear 0
  9. %start
  10. %font rhinestone.font 8
  11. ;
  12. ;     German version by Dr. Peter Kittel, CBM Ffm, 17.2.86
  13. ;
  14. ;     Begining of demo ... Hook screens
  15. ;
  16. %load Hello.ani clear 0 delay $10 animate 0 4
  17. %clrtxt 25 164 315 199 penb 0
  18. Druecken Sie die Leertaste, um eine Vorfuehrung der Multi-Tasking-Faehigkeiten
  19.  des Amiga Personal-Computers zu bekommen.
  20. %delay $7000 cycle 4 5 5 0 0
  21. ;
  22. ;                 "Holding" animation
  23. ;
  24. %clear 0 color 31 $CC6
  25. %load holding.ani
  26. %delay $0300 animate 0 26
  27. %clrtxt 30 164 300 199 pena 1 penb 0
  28. Gefaellt es Ihnen, den ganzen Tag am Telefon festgenagelt zu sein?
  29. %pena 31
  30.    (Weiter mit der Leertaste)
  31. %delay $0D00 cycle 103
  32. 30 31 32 33 34 35 36 37 38
  33. 30 31 32 33 34 35 36 37 38
  34. 30 31 32 33 34 35 36 37 38
  35. 30 31 32 33 34 35 36 37 38
  36. 30 31 32 33 34 35 36 37 38
  37. 27 30 31 28 32 33 34 35 36 37 38
  38. 30 31 32 33 34 35 36 37 38
  39. 30 31 32 33 34 35 36 37 38
  40. 30 31 32 33 34 35 36 37 38
  41. 27 30 29 31 32 33 34 35 36 37 38
  42. 30 31 32 33 34 35 36 37 38
  43. ;
  44. ;                 "BagLady" animation
  45. ;
  46. %pena 0 rfill 310 199 10 164
  47. %cset2 load baglady.ani
  48. %delay $00 animate 0 9
  49. %clrtxt 40 164 280 199 pena 1 penb 0
  50. Erhoeht das Warten in der Kassenschlange tatsaechlich Ihre Produktivitaet?
  51. %load baglady.ani delay $2E00 color 2 $CC6 pena 2
  52.     (Weiter mit der Leertaste)
  53. %kids cycle 10 10 10 10 10 10 10 11 12 11 10
  54. ;
  55. ;           Amiga Guy animation
  56. ;
  57. %clrtxt 20 167 310 199
  58. %load amigaGuy.ani delay 0 animate 0 12
  59. %pena 0 rfill 10 170 0 150 rfill 319 170 310 150 pena 1
  60. Der Sinn des Personal-Computers ist einfach, Ihnen Zeit zu ersparen und
  61.  Ihre Produktivitaet zu erhoehen.
  62. %delay $7000 cycle 4 13 13 14 14
  63. %clrtxt 20 164 300 199
  64. %delay $0700 stamp 14 animate 17 24
  65. Aber oft scheinen Personal-Computer Sie eher eine Menge Zeit zu kosten.
  66.  Druecken Sie die Leertaste, dann werde ich es Ihnen erklaeren.
  67. %delay $7000 cycle 4 16 16 15 15
  68. ;
  69. ;           "Series" animation
  70. ;
  71. %clear 0
  72. %load series.ani
  73. %stamp 0 pena 0 rfill 315 142 180 108 efx2 clrtxt 20 164 300 199
  74. Die meisten Personal-Computer koennen nur eine Sache gleichzeitig tun.
  75.  Wenn sie 3 Dinge zu erledigen haben, muessen sie sie nacheinander tun.
  76. %wait clrtxt 20 164 300 199
  77. Und waehrend der Computer eins nach dem anderen erledigt, muessen Sie warten und
  78.  zusehen.
  79. %delay $0C00 clock1 animate 1 7 pause 4 $8000 animate 8 21 pause 4 $8000
  80. %animate 22 35 pause 3 0 clrtxt 20 164 300 199
  81. Auf den Computer zu warten ist keine sehr produktive Art, seine Zeit zu
  82.  verbringen.
  83. %color 28 $CC6 pena 28
  84.    (Weiter mit der Leertaste)
  85. %wait clrtxt 20 164 300 199 load parallel.ani
  86. Der Amiga kann jedoch mehrere Dinge gleichzeitig erledigen. Das nennt man
  87.  Multi-Tasking.
  88. ;
  89. ;  Parallel task example
  90. ;
  91. %delay $0A00 animate 0 17 pena 0 rfill 315 142 180 108 efx2 wait
  92. %clrtxt 20 164 300 199
  93. Sie muessen nicht darauf warten, dass der Computer eine Arbeit fertigstellt,
  94.  bevor Sie ihm die naechste aufgeben.
  95. %clock2 delay $0A00
  96. %animate 18 26 pause 2 0 animate 41 48 pause 2 0 animate 35 40
  97. %pause 2 0 clrtxt 20 164 300 199
  98. Durch diese Multi-Tasking-Faehigkeit erhoeht der Amiga tatsaechlich Ihre
  99.  Produktivitaet. Sehen wir uns ein Beispiel an...
  100. %wait
  101. ;
  102. ;     This is Fred...
  103. ;
  104. %clear 0 load Fred.ani delay $0200 animate 0 8
  105. %clrtxt 5 158 315 199
  106. Dies ist Fred. Er hat ein kleines Geschaeft und einen Personal-Computer und
  107.  moechte einen Prospekt ueber neue Spezialitaeten an einige seiner Kunden
  108.  verschicken. Wir wollen ihm dabei helfen.
  109. %delay $1D00 cycle 4 9 10 9 11
  110. %pena 0 rfill 315 199 2 158 clrtxt 20 164 300 199
  111. Zuerst muessen wir seine Kundenliste sortieren, dann den Prospekt entwerfen
  112.  und schliesslich alle Briefe drucken.
  113. %cycle 4 9 10 9 11 clrtxt 20 164 300 199
  114. Zuerst lassen wir den Computer die Namen sortieren. Druecken Sie die
  115.  "F1"-Taste als Startsignal.
  116. %font topaz.font 8
  117. %wait clear 0 load myColors.ani pena 10 rfill 319 10 0 0
  118. %pena 0 penb 10 @ 20 8
  119. Fred's Computer
  120. %penb 0 pena 10 @ 2 30
  121. Sorting Customers by Address.
  122. %font rhinestone.font 8
  123. %pena 9 move 0 160 draw 319 160 move 0 162 draw 319 162
  124. %clrtxt 20 164 300 199 pena 1
  125. Jetzt sortiert der Computer, und wir muessen bis zum Ende warten, bevor
  126.  wir etwas anderes tun koennen.
  127. %font topaz.font 8
  128. %efx6 2 30 3000
  129. %clrtxt 20 164 300 199 pena 1 font rhinestone.font 8
  130. Jetzt ist das Sortieren fertig. Beachten Sie, dass wir solange herumsitzen
  131.  und zugucken mussten, bis der Computer fertig wurde.
  132. %color 8 $CC6 pena 8
  133.    (Leertaste)
  134. %wait
  135. %clrtxt 20 164 300 199
  136. Nun koennen wir den Prospekt-Text eintippen. Druecken Sie die "F2"-Taste.
  137. %wait clrtxt 1 12 319 130 cset2 load cset.printer color 28 $4D0 pena 28
  138. ;
  139. ;  User finishes memo by typing name
  140. ;
  141. und da ich Sie als Geschaeftspartner schaetze, freut es mich besonders,
  142.  Ihnen dieses spezielle Angebot zu unterbreiten. Beachten Sie unser grosses
  143.  Angebot an Hochzeits- und Geburtstagstorten, sowie unsere preiswerten
  144.  Qualitaetsbackwaren fuer den Alltag. Mit freundlichen Gruessen...
  145. %clrtxt 20 164 310 199 pena 1
  146. Um den Brief zu beenden, tippen Sie ein "Fred the Baker" und druecken die
  147.  RETURN-Taste.
  148. %input 28 150 95 8 30 clrtxt 10 164 310 199
  149. Jetzt lassen wir diesen Brief von unserem Computer fuer jeden Kunden aus der
  150.  Liste drucken:  Druecken Sie die "F3"-Taste.
  151. %wait clrtxt 10 164 310 199 load yoyo.ani clear 0
  152. ;
  153. ;  Printer animation with Fred & Yoyo
  154. ;
  155. %delay $10 animate 21 28 stamp 0 clrtxt 2 155 315 199
  156. Es wird 2 Stunden dauern, alle Briefe zu drucken. Fred wuerde gern mit dem
  157.  Rest seiner Arbeit anfangen, doch er muss bis nach dem Abendessen warten,
  158.  bis der Computer fertig ist. (Keine sehr produktive Zeitausnutzung.)
  159. %delay $0A00 cycle 40
  160. 29  1 32  2 33  3 34  4 35  5 30  6 34  7 33  8 32  9 31 10
  161. 29 11 32 12 33 13 34 14 35 15 30 16 34 17 33 18 32 19 31 20
  162. %clrtxt 2 155 315 199
  163. ;
  164. ;        Rose's Flower Shop
  165. ;
  166. %cset2 load Rose3.ani
  167. %delay $0000 animate 0 6 clrtxt 20 164 310 199
  168. Dies ist Rose. Sie hat auch ein kleines Geschaeft und moechte einen Prospekt
  169.  verschicken. Sie benutzt einen Amiga Personal-Computer. Wir wollen auch ihr
  170.  helfen.
  171. %delay $2600 cycle 4 7 9 8 9 clrtxt 20 164 310 199
  172. Um ihre Kundenliste zu sortieren, druecken Sie die "F1"-Taste.
  173. %cycle 4 7 9 8 9
  174. ;
  175. ;  Starting sorting Rose's customers
  176. ;
  177. %color 0 $038 clear 0 pena 1 move 0 0 draw 319 0 draw 319 199 draw 0 199
  178. %draw 0 0 rfill 319 10 0 0 pena 0 penb 1 @ 2 8
  179. Amiga Personal-Computer
  180. ;  draw sort window
  181. %pena 0 rfill 220 80 5 15  color 8 $fd0 color 6 $f90
  182. %pena 8 penb 0 move 5 15 draw 220 15 draw 220 80 draw 5 80 draw 5 15
  183. %rfill 220 24 5 15 pena 0 penb 8 @ 10 23
  184. Datenbank
  185. ;  clear text at bottom and draw bar
  186. %penb 0 pena 0 rfill 319 199 0 160 color 28 $4D0 pena 1
  187. %move 0 160 draw 319 160
  188. %clrtxt 5 164 315 199 pena 28
  189. Aber jetzt...anstelle auf den Amiga zu warten, koennen wir sofort mit der
  190.  Arbeit am Brief beginnen. Druecken Sie die "F2"-Taste, um ihr
  191.  Textprogramm zu starten.
  192. %efx5 15 40 3000 $5000 0 wait clrtxt 5 164 315 199
  193. ;
  194. ;  Open Memo to edit while still sorting
  195. ;
  196. %pena 0 rfill 300 155 20 60
  197. %pena 6 move 20 60 draw 300 60 draw 300 155 draw 20 155 draw 20 60
  198. %rfill 300 69 20 60 pena 0 penb 6 @ 25 68
  199. Textverarbeitung
  200. %clrtxt 24 71 299 150 cset2 load cset.printer pena 1 penb 0
  201. und da ich Sie als Geschaeftspartner schaetze, freue ich mich besonders,
  202.  Ihnen dieses spezielle Angebot zu unterbreiten. Ueberzeugen Sie sich von
  203.  dem breiten Angebot an Schnitt- und Topfblumen und unser preiswertes
  204.  Topf- und Pflanzmaterial. Mit freundlichen Gruessen...
  205. %clrtxt 20 164 300 199 pena 28
  206. Beachten Sie, dass der Amiga WEITER sortiert... waehrend wir mit der
  207.  naechsten Aufgabe weitermachen.
  208. %wait
  209. ;
  210. ;         Have user finish memo
  211. ;
  212. %clrtxt 20 164 300 199 pena 28
  213. Tippen Sie "Rose Thornbush" und druecken die RETURN-Taste. Durch die
  214.  Multi-Tasking-Faehigkeit spart der Amiga Ihnen Zeit.
  215. %input 1 160 140 8 20
  216. %clrtxt 20 164 300 199 pena 28
  217. Der Amiga kann mit seiner Arbeit weitermachen, waehrend wir zur naechsten
  218.  Aufgabe uebergehen.
  219. %wait efx5 0 clrtxt 20 164 300 199 pena 28
  220. Nun muessen wir noch die Briefe drucken. Druecken Sie die "F3"-Taste.
  221. %wait clrtxt 20 164 300 199 cset2 load Rose3.ani
  222. ;
  223. ;  Rose typing while printer spits paper
  224. ;
  225. %color 0 $000 clear 0 delay $10 animate 0 6 stamp 10 clrtxt 15 164 315 199
  226. Das Drucken wird immer noch 2 Stunden dauern, aber mit dem Amiga koennen
  227.  Sie sofort etwas anderes beginnen, waehrend er im Hintergrund alles zu Ende
  228.  fuehrt.
  229. %delay $0A00 cycle 33
  230. 10 11 7 12 13 9 14 15 8 16 17 9 19 20 8 21
  231. 22 7 23 24 9 25 26 8 27 28 9 29 30 7 31 10 8
  232. %clrtxt 15 164 315 199 load End.ani delay $10 animate 21 29 stamp 34 stamp 0
  233. Also noch einmal ... was moechten Sie lieber:
  234.    a) einen Computer, der Sie warten laesst, oder
  235.    b) einen Amiga, auf den Sie nicht warten muessen.
  236. %delay $0A00 cycle 30
  237.  1 31  2  3 32  4  5 33  6  7 32  8  9  31 10
  238. 11 32 12 13 33 14 15 32 16 17 33 18 19  32 20
  239. %clear 0 load hello.ani delay $10 animate 0 4
  240. %clrtxt 20 164 310 199
  241. Lassen Sie sich von einem Verkaeufer mehr ueber den Amiga Personal-Computer
  242.  erzaehlen.
  243. %delay $7000 cycle 4 5 5 0 0
  244. %clear 0 restart end 
  245.  
  246.  
  247.